Option Explicit
Sub B_Sample036()
    Dim myWb As Workbook
    Set myWb = Workbooks(1)				'Nï
    MsgBox Not myWb.Saved
    Set myWb = Nothing					'
End Sub
